0 REM THE TRANSACTOR VOLUME 5 ISSUE 04 PAGE 30
100 REM* DATA LOADER FOR "[197][216][208][197][214][193][204]" *
110 :
120 CS=0    :REM* CHECKSUM     *
130 OS=49152:REM* OBJECT START *
135 :
140 FOR R=0TO1:READ B:IFB>=0THEN POKE OS,B:OS=OS+1:CS=CS+B
160 R=-(B<0):NEXT R
180 :
190 IF CS<>10928 THEN PRINT"***** CHECKSUM ERROR *****": END
200 :
210 POKE 785,0: POKE 786,192
220 PRINT"** CALL [197][216][208][197][214][193][204] WITH:"
225 PRINT"** '[213][211][210](0),STRING VARIABLE'
230 :
240 [128]
1000 [131]  32, 253, 174,  32, 158, 173
1010 [131]  32, 143, 173, 160,   0, 177
1020 [131] 100, 170, 200, 177, 100, 133
1030 [131] 251, 200, 177, 100, 133, 252
1040 [131] 160,   0, 185,   0,   2, 153
1050 [131]  60,   3, 177, 251, 153,   0
1060 [131]   2, 200, 192,  80, 208, 240
1070 [131] 169,   0, 157,   0,   2, 165
1080 [131] 122,  72, 165, 123,  72, 169
1090 [131]   0, 133, 122, 169,   2, 133
1100 [131] 123,  32, 121, 165, 169,   0
1110 [131] 133, 122, 169,   2, 133, 123
1120 [131]  32, 158, 173, 104, 133, 123
1130 [131] 104, 133, 122, 162,  79, 189
1140 [131]  60,   3, 157,   0,   2, 202
1150 [131]  16, 247,  96,  -1